home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-01
/
48asmdbg.zip
/
LABELS.H
< prev
next >
Wrap
Text File
|
1992-04-09
|
1KB
|
47 lines
cls();
bos();
goto start_prg;
jmp_at_a: tmp[1] = a[1];
return_flag = 0;
goto jump_mem;
jmp_at_c: tmp[1] = c[1];
return_flag = 0;
goto jump_mem;
jump_mem:
switch (tmp[1]&mask_a[1])
{
case RPL:
{
printf("programme returned to RPL\n");
if (p) printf("%%%WARNING%%% you have not set p to 0,%c\n",7);
if (b[1] != b_init) printf("%%%WARNING%%% you have not restored
b,%c\n",
7);
if (d0[1] != d0_init + 5) printf("%%%WARNING%%% you have not
restored d0
,%c\n",7);
if (d1[1] != d1_init + (d[1]-d_init)*5) printf("%%%WARNING%%% d1
and d a
re no longer consistent,%c\n",7);
break;
}
default: printf("programme jumped to memory location
%5x\n",tmp[1] &
mask_a[1]);
}
if (!return_flag) exit(0);
else printf("%%%WARNING%%% programme continuing without executing
routine at%5
x%c\n",tmp[1] & mask_a[1],7);
start_prg:
/* -------------------------------------------------------------------------